home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GEOS Mega ASM (19xx)(-).d64 / list4-6 < prev    next >
Text File  |  2019-04-13  |  711b  |  39 lines
  1.      t     "TestMen}"
  2.  
  3. :HorizontalLine     = $c118
  4. :r3L          = $08
  5. :r3H          = $09
  6. :r4L          = $0a
  7. :r4H          = $0b
  8. :r11L          = $18
  9.  
  10. :xlinks     = 50
  11. :xrechts     = 2 * 150
  12. :y1     = 60
  13. :y2     = y1 + 40
  14.  
  15.      lda     #<xlinks
  16.      sta     r3L
  17.      lda     #>xlinks
  18.      sta     r3H
  19.      lda     #y1
  20.      sta     r11L
  21.      lda     #<xrechts
  22.      sta     r4L
  23.      lda     #>xrechts
  24.      sta     r4H
  25.      lda     #$ff     ; Linienmuster
  26.      jsr     HorizontalLine
  27.  
  28.      lda     #y2     ; neue y-Koordinate
  29.      sta     r11L
  30.      lda     #$ff
  31.      jsr     HorizontalLine
  32.  
  33.      lda     #y1 + y2     ; neue y-Koordinate
  34.      sta     r11L
  35.      lda     #$ff
  36.      jsr     HorizontalLine
  37.  
  38.      rts